home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Modules / BackSpaceModules / Source / PlanetView / PlanetWraps.psw < prev    next >
Encoding:
Text File  |  1992-07-31  |  183 b   |  13 lines
  1. /* PostScript functions to draw a planet */
  2.  
  3. defineps PLinitPlanetDefs()
  4.     /PLfillCircle
  5.     {
  6.         0 360 arc fill
  7.     } def
  8. endps
  9.  
  10. defineps PLdrawPlanet(float x,y,r)
  11.     x y r PLfillCircle
  12. endps
  13.